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10 
1h-se 1984 01:14:5 VAX-11 Bliss-32 V4.0-74 Pa 1) 
12-2808- 1382 93358528 DISKSVMSMASTER:CF11A.SRCIRDHEDR.B32;1 = (1), 


; 1 001 MODULE RDHEDR ( 

3 ¢ 0 § LANGUAGE (OL 15889) « 

; 0 IDENT = ‘VvQ4- , 

; & 04 )= 

3 5 Bee 1 BEGIN 

ie Sor 1! 

3 : B208 } PRR REA EAA AARAAARAAA RARER ARATE RTARTA RAAT EEE 
: :* 7 
; 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
PF 11 011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: i og ! = ALL RIGHTS RESERVED. : 
: 14 0014 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 18 B28 1 '* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 1 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Ys $84 : 7 TRANSFERRED. * 
; :* ra 
; 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 $§ 00 ; 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; Z 88 i : .° CORPORATION. & 
; .* * 
4 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $8 BS $ } - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Py : 4 
; ee 0098 1 !e + 
: 9 0029 : Lee ee AAR A EAA ERATE AAA 
3 0 0030 

; 1 0031 1 !++ 

; § O03 1! 

3 0033 1! FACILITY: F11ACP Structure Level 1 

3 4 0034 1! 

; 5 0035 1 ! ABSTRACT: 

5 6 boee . 3 

7) aa 0037 1! This routine reads the desired file header, checks it for 

; $ si ' } validity and correctness, and returns its address. 

: 40 0040 1 ' ENVIRONMENT: 

3 41 041 1! 

: 42 B06 1! STARLET operating system, including privileged system services 

; 63 0045 1! and internal exec routines. 

H 44 Bee 1! 

; 6 5 1 !e- 

: 46 poeg 1! 

: «667 0047 1! 

3 $3 apes ! AUTHOR: Andrew C. Goldst. nm, CREATION DATE: 13-Dec-1976 22:00 

: 1 33 ' MODIFIED BY: 

; ¢ 0o¢ | i A0102 —ACG0120 Andrew C. Goldstein, 16-Jan-1980 21:16 

: OpeE ’ Reorder header consistency checking 

; e¢ Boe 1 i A0101 ACG0083 Andrew C. Goldstein, 15-Nov-1979 1:02 

; 29 boe$ ' Invalidate file header if bad 


1b-te 2007 19Re 93:35:28 | Sd lSmAStenccy Tike see aRDHEDR.832;1° aan 
Andrew C. Goldstein. 10-Oct-1978 20:03 


A0109 ACGOGO9! 
Previous revision history moved to F 
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RARY | SYSSLIBRARY:L18,L32"; 
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$ep-1984 01:14:5 VAX-11 Bliss-32 V4.0-742 Pa 
Haat 7 93:33:28 DISKSVMSMASTER: CF11A.SRCIRDHEDR.B32; 1 ad (2) 


3 66 8 } GLOBAL ROUTINE READ_HEADER (FILE_ID, FCB) = 
; oO 1 #1 tee 
; 4 ¢ 1! 
3 4 ? ! FUNCTIONAL DESCRIPTION: 
: Me > ae This routine reads the desired file header, checks it for | 
: a $ : validity and correctness, and returns its address. 
oi: ae Hf 1 ! CALLING SEQUENCE: 
3 76 3 ! READ_HEADER (ARG1, ARG2) 
: 78 91 1 =! INPUT PARAMETERS: 
: 79 0 9¢ 1! ARG1: address of file ID or 0 
; Baez 1! ARG2: FCB address or 0 if none 
:~ Oy tae 1! 
; ¢& 0395 1 ! IMPLICIT INPUTS: 
; oi B309 ! CURRENT_VCB contains address of VCB in process 
; 85 0398 1 ! OUTPUT PARAMETERS: 
; 8686 0399 1! NONE 
s 87 0400 1! 
; & 0401 1 ! IMPLICIT OUTPUTS: 
; ot 14 1! HEADER_LBN contains LBN of header read 
: ! LE_H contains address of header buffer 
+ ot ! FILE_HEADER i dd f header buff 
; 9 0405 1 ! ROUTINE VALUE: 
f= = 0406 1! address of file header 
; «694 0407 1! 
; 95 0408 1 ! SIDE EFFECTS: 
; & 0409 1! index file window may be turned 
$s 97 0410 1! 
s 8 0411 1 !-- 
; WF Bote 1 
; 100 041 BEGIN 
: 101 0414 
; 3 0415 MAP 
2, 3 0416 FILE_ID : REF BBLOCK, ! file ID arg 
: 104 0417 FCB : REF BBLOCK; ' FCB arg 
; 105 0418 
: 106 0419 LOCAL 
3 VBN, ! of header 
ORS ie YB of hes 
° i . ° ea er 
| es pron Tt RBs ie hinetes me 
: : » ' loca e pointer 
; a oe : IDX_FCB : REF BBLOCK; ! address of index fiie FCB 
: 113 4 $ EXTERNAL 
: 116 4 CLEANUP_FLAGS : BITVECTOR, ' cleanup_action flags 
3: 115 8 HEADER_CBN ' Longword to get LBN of header 
; 116 9 FILE HEADER : REF BBLOCK, ! longword to get buffer address 
3 13 4 9 CURRENT_VCB : REF BBLOCK; ! address of VCB in process 
3 119 4 § EXTERNAL ROUTINE 
: 120 4 MAP_VBN ' map virtual to logical 
> 121 434 REAB_BLOCK i read a disk block 
: V2 435 CHECR_HEADER, ' check header for correctness 


Reine ASE LS TT Mier TR . ms 
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beSep-1984 01:14:50 VAX=11_BLiss-32_v4,0-742 Page 4 
Bep-1984 12:29:48 DISKSVMSMASTERSEF TIASSRCIRDHEDR.B32;1°%" (25 


INVALIDATE; invalidate block buffer 


Get the LBN of the file header. If an FCB is supplied, it contains 
the LBN. If not, derive it from the file number. 


1 
1 
' 
} 
i 
i 


LBN = 
BEGIN 
IF .FCB NEO 0 
THEN .FCBCFCBSL_HDLBN) | 
ELSE 
BEGIN 
IF .FILE_IDCFIDSW_NUM] EQL 0 THEN ERR_EXIT (SSS NOSUCHF ILE); 
VON = .FILE_ID F10Su NUAL s . CURRENT_OCBCVCB$B_TBMAPSIZE) + 2; 


DX_FCB = . CURRENT $L FCBELA; 
MAP VEN (.VBN, .IJDR_FCBCFCBSC_WLFLJS 


END; 

IF .LBN EQL -1 THEN ERR_EXIT (SSS_NOSUCHFILE); 

' Now read the header and check it for correctness. If a file ID 
was supplied, use the file number and file sequence number from 


! it; else use the arguments. If the file operation is being cone on a 
spooled device, the file must be marked as spooled. 


oO SRRRRRRRERERERERRRRERE EE 
| a el ek ek ek ak el Sal al al ek alta ta ta, a a, a, ak a ee ee 
yal al sh ab ab sh sh al al al ee et ee et eet et et er er lS, | 
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HEADER = READ_BLOCK (.LBN, 1, HEADER_TYPE); 


VEU O ODNAUVE WN $0 ODNA NE WN SO ODNAUE AN" OOODNOUE WW 
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0465 IF .FILE_ID NEQ 0 
0466 HEN 
0467 FID = .FILE_ID 
0468 ELSE 
ek 34 FID = FCBCFCBSW_F ID]; 
0471 IF NOT CHECK_HEADER (.HEADER, .FID) 
047 HEN 
047 BEGIN 
0474 INVALIDATE (.HEADER); 
0475 ERR_EXIT (); 
047 ; 
047 
0478 IF .CLEANUP_FLAGSCCLF_SPOOLF ILE) 
66 479 2 AND NOT .HEADERCFHISV~ 
6 480 AND .HEADERCFH1$W_FID NUM) GTRU 5 
68 481 ¢ THEN ERR_EXIT (S$S$_NOSUCHF ILE) ; 
70 cas HEADER_LBN = .LBN; ' return LBN of header 
71 0484 FILE HEADER = .HEADER; ' and address ‘ 
i 0485 RETURN .HEADER; ! and the header itself 
7 0486 ND; ! end of routine READ_HEADER 


-TITLE RDHEDR 
-IDENT \V04-000\ 


~-EXTRN CLEANUP_FLAGS, HEADER_LBN 
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; Routine Size: 150 bytes, Routine Base: $CODE$ + 0000 


m 10 
RDHEDR 16-Sep-1984 01:14:5 VAX=-11 Bliss-32 V4.0-742 P 5 | 
yOe~000 127808- 1382 3:33:28 DISKSVMSMASTER:LF11A.SRCIRDHEDR.B32: 1." (2) | 
.EXTRN FILE_HEADER, CURRENT_VCB | 
-EXTRN MAP_QBN, READ_BLOCK 
.EXTRN CHECK_HEADER, INVALIDATE 
-PSECT $CODES,NOWRT,2 
000 00 .ENTRY READ_HEADER, Save R2,R3 : 0379 
50 08 at i O02 fou. PERRO sen : Bide 
53 34 nS 06 0908 HOVL 52(R0), LBN + 0445 
04 1$ TSTW @FILE_ID + 0448 
5 88 bootd gear as te 
51 00006 CF pd 0015 MOVL § CURRENT_VCB, RI + 0449 
50 04 BC 3¢ 018 MOVZWL @FILE RO ; 
38 8 Al OA 001¢ MOVZBL 56(R1J, R2 ; 
5 38 CO 00 9 ADDL 2 Re. R : 
50 02 ¢0 000 ADDL2 #2. VBN : 
51 61 00 900 6 MOVL (Ri), IDX_FCB + 0450 
a a es 
00006 gf ge Fe oo, = CALLS 2" map : 
FFFFFFFF © 8F 3 D4 00036 2$: cMPL LBN, #1 + 0455 
" oF ob b00a Pusat BN j 0468 
00006 CF 03 FB 00044 CALLS BBN READ_BLOCK : 
52 50 DO 00049 MOVL RO, HEADER 5 
As eee deat TE ee 
50 04 AC 06 90091 MOVL FILE_ID, FID ; 0467 
WS Gh 3 Ber 2B: BRL? Fee. aD Big 
52 DD 000S5E PUSHL HEADER : 
ot a 7 
52 DD 00068 PUSHL HEADER > 0474 
00006 CF 01 FB 0006, CALLS #1, INVALIDATE : 
00 iH O06 CHAU #0 ; 0475 
00006 cr 9 0972 5$: is CLEANUP_FLAGS ; 0478 
0B 0D A2 04 8 ie BBS #4, 13(HEADER), 7$ + 0479 
05 02 Ag BI 9070 CMPW (HEADER) . #5 ; 0480 
0910 8? Bf o08} 63: CHAU #2320 0481 
0000G CF 53 DO 00088 7S: MOVL _LBN, HEADER_LBN > 0483 
00006 CF 32 D6 008 MOVL HEADER, FALE HEADER > 0484 
50 D 099 MOVL HEADER. R + 0485 
04 0009 RET > 0486 


ROHEDR 


v04-000 - 
174 
175 488 1 END 
176 489 0 ELUDOM 
PSECT SUMMARY 

Name Bytes Attributes 

SCODES 150 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eocceees Symbols oooeeo-- Pages Processing 

File Total Loaded Percent Mapped Time 

.$255$DUA28: CSYSLIBILIB.L32;1 18619 10 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RDHEDR/OBJ=0B)$:RDHEDR MSRC$:RDHEDR/UPDATE=(ENHS$:RDHEDR) 


; Bizes 150 code + 0 data bytes 


hn Tine: 0 6.5 
Lines/CPU M 970 
tenenes/¢PU-Nin: 12738 
penety Used: 94 pages 
Compilation Complete 
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